home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 136 / 136.d81 / rom read 1571 (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  197b  |  9 lines

  1. 10 input"[147]device number";d
  2. 20 open15,d,15
  3. 30 print#15,"m-r"chr$(0)chr$(192)chr$(1):get#15,a$:a=asc(a$)
  4. 40 ifa=56thenprint"new rom":goto80
  5. 50 ifa=66thenprint"old rom":goto80
  6. 60 ifa=132thenprint"128d":goto80
  7. 70 print"not recognized 1571 rom"
  8. 80 close15
  9.